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public class NtnGeoCode 
{ 

public static final double METSRS_PER_MILE « 1609.344; 
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"public static double getDistance (double latl, double lonl, double lat2. double lon2 

// approx radius; true radius varies from 6357kin (polar) to 6373km (equatorial), 
final double EARTH RADIUS = 6367000; ^ 

// convert from degrees to radians 
double rlatl = latl * Math. PI / 180 
double rlonl = lonl * Math. PI / 180 
double rlatZ = lat2 * Math. PI / 180 
double rlon2 = lon2 * Math. PI / 180 

// calclulate distance in meters 
double dlat = rlat2 - rlatl; 
double dlon = rlon2 - rlonl; 

double a « Math, pow (Math, sin (dlat / 2), 2) 

+ Math. cos (rlatl) * Math, cos {rlat2) * Mat h. pow (Math, sin (dlon / 2) ,2) ; 
double d = 2 * Math . atan2 (Math, sqrt (a) ,Math.sqrt (1-a) ) * EARTH_RADIUS ; 

return (d) ; 
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'public static doubled getLatLon( double latl, double lonl, double crsl2, double dl2) 
{ 



final double EPS = 0.00000000005; 
final double convFactor = 1.852; 



//km to nm 



double dlon, lat2, lon2; 

double rlatl, rlonl, rcrsl2, rdl2; 



rlatl ^ latl * Math. PI / 180; 
rlonl ^ lonl * Math. PI / 180; 
rcrsl2 « crsl2 * Math. PI / 180; 
rdl2 = dl2 / convFactor; 
rdl2 = rdl2 / (180 * 60 / Math. PI) ; 



/ / now we ' re in nm 

// now we're in radians 



lat2 = Math. asin (Math. sin{rlatl) * Math.cos (rdl2) 

+ Math, cos (rlatl) * Math. sin (rdl2) * Math.cos (rcrsl2) ) ; 



//endpoint a pole 



if (Math. abs (Math. cos (lat2) ) < EPS) 

lon2 « 0,; 
else 

{ 

dlon = Math. at an2 (Math. sin (rcrsl2) * Math, sin (rdI2) 

* Math.cos (rlatl) , Math, cos (rdI2) - Math, sin (rlatl) * Math, sin (lat2) ) ; 
lon2 ^ mod (rlonl - dlon + Math. PI, 2 * Math. PI) - Math. PI; 

} 



double [1 out = new double [2]; 
out [01 « lat2 * (180 / Math. PI); 
out[l] = lon2 * (180 / Math. PI); 



return (out) ; 



} 

//- = = 



private static double mod (double x, double y) 

{ 

ret\im(x - y * Math, floor (x / y) ) ; 
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<object runa t« "Server • scop e-'i^plicat ion" i(l-"llaEniima* progid»"Keirftediary.Eiiuiiier at ions* ></ object > 
cobject runat* "Server" scope- "Application* id»"partner* progid="NewMediary.Parcner* ></ c^ject > 

251 

ocrip:: language »• JavaScript" runat«"Server " > 



-252 

tart () ^ 



function Application_OnSta 
{ 

var ws - Server. Createdbjec t ( "Wscript . Shel 1 " ) ; 
var srvnam - w3.regRead{"HKI«\\Sofcw are\\NewMediary\\arvnam" ) ; 
Application (■tratrix_DS!r) - ws.regRead ( "KKLMWSof tware\\HewMediary\\DSN") ; 
J^lication("matrix_usmam") ■ ws.regRead(" HKLM\\Sof tware\\NewMediary\\usrnam" 1 ; 
;^lication("tratrixjpasswd") - ws.regReadt" HKLM\\Sof tware\\NewMediary\\passwd" ) ; 
ws ■ mill ; 

} 

'253 



function SessionjOnStart t) 
{ 

var host » Request. ServerVar iables ( "HTTP_HOST" ) ; 

var path ■ new String (Request. ServerVeiriables ("P ATH_INFO'' )). toLowerCase () ; 

var isDemo » {(host «• "dKno.newmediary.cora") || (path . indexOf ( "/demo/ • ) >» 0) ) ; 

if ( (tisDeno) 1| (ipartner . islnitialized ( ) ) ) 
{ 

try 
{ 

J^li cation. Lock () ; 

if (Ipartn er.isInitializedO ) 

partner. initial ize ( lookupPartner (host) ) ; 

J^lic ation.UnLock 0 ; 

} 

catch (e) 
{ 

;^lic ation . OnLock ( ) ; 

} 

' ) 

} 

^254 

function looki^Partner (host) 
{ 

var pairtnerlD - 0; 

try 

{ 

var addr = Request . ServerVari ables ( "SERVER_NAME'' ) ; 
var matrix = Server .Great eObjec c ( "ADODB . Connection" ) ; 
matrix. open (;^li cation ( "mat rix_DSN" ) , 

Application ("matrix_usma ro" ), Application ( ''macrix_passwd" ) ) ; 

var sql - "GetPartnerlD a3vcaddr° ' " +h ost + " ' , fflip= ' " + addr + * ' " ; 
var rs = matrix.exe cute (sql) ; 

if (irs.EOF) 

partnerlD • r a { "partnerlD" ) .value; 

rs . close ( ) ; 
matrix. close () ; 
rs » null ; 
matrix » null; 

} 

catch (e) 
{ 

// do nothing 

} 

if (partnerlD »• 0) 

partner ID - NmEnums .NMIO; 

retur n (partn e r I D ) ; 



} 

</ script > 
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<%@ language=JavaScript %> ^261 

< ! - - #include virtual = " /common /common . set " - - > 

^262 

page.openHeader ( ) ; 
page . closeHeader { ) ; 
page. start ( ) ; 
%> 



Content here . 
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<% 

page . end ( ) ; 
%> 
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